home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / simcode.arc / SCRIPTS.SAM < prev    next >
Encoding:
Text File  |  1985-01-07  |  1.5 KB  |  64 lines
  1. name whuxlb
  2. dial "3093"
  3. if "login" gosub "login" else {
  4.     dial "3100"
  5.     if "login" gosub "login" else say "whuxlb must be down"
  6. }
  7. quit
  8. name vnews
  9. dial "2267"
  10. if "login" gosub "login" else {
  11.     dial "2270"
  12.     if "login" gosub "login" else say "whuxle must be down"
  13. }
  14. case
  15.        E;: send "vnews"
  16.        mail: {
  17.      say "You have Mail"
  18.      send "vnews"
  19.     }
  20. caseend
  21. quit
  22. name "getnews"
  23. dial "2267"
  24. if "login" gosub "login" else {
  25.     dial "2270"
  26.     if "login" gosub "login" else say "whuxle must be down"
  27. }
  28. settime 10
  29. if "E; " send "readnews -n net.cse -p" else say "no shell"
  30. openlog "\\eric\\news"
  31. if "" say "huh"
  32. closelog
  33. toggle_tr
  34. quit
  35. name whuxle
  36. dial "2267"
  37. if "login" gosub "login" else {
  38.     dial "2270"
  39.     if "login" gosub "login" else say "whuxle must be down"
  40. }
  41. quit
  42. name whuxlg
  43. dial "3318"
  44. if "login" gosub "login" else {
  45.     dial "3321"
  46.     if "login" gosub "login" else say "whuxlg must be down"
  47. }
  48. quit
  49. name lmos45
  50. dial "9 & 386 5094"
  51. if "login" gosub "login" else {
  52.     say "lmos45 must be down"
  53. }
  54. quit
  55. login:
  56.        send "\\1\\1eric"
  57.        if "word:" {
  58.     send "XXXXXXX"
  59.        }
  60.        else {
  61.     say "no password"
  62.        }
  63.        return
  64.